#!
use strict;
my %food;
%food = (
	'apple'=>3,
	'pear'=>5,
	'chicken wing'=>2,
);

my $size = keys %food;
print $size;


